home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / TIEDEMO3.ZIP;1 / SOURCE / ICON1695.TS / ICON1695.TS
Encoding:
Text File  |  1993-04-01  |  1.7 KB  |  69 lines
  1. unit    icon1695:10    $$ vector graphics/text block
  2. 1695        $$ label - return here if invalid input
  3. enable  touch
  4. pause   keys=all
  5. disable touch
  6. if      ((zkey = touch $and$ (ztouchx > 486) $and$ (ztouchy > 127) $and$ (ztouchx < 554) $and$ (ztouchy < 218)))
  7. .       calc    TOUCHBOX _ 0
  8. .       branch  1695end
  9. endif
  10. if      ((zkey = touch $and$ (ztouchx > 217) $and$ (ztouchy > 7) $and$ (ztouchx < 252) $and$ (ztouchy < 45)))
  11. .       calc    TOUCHBOX _ 1
  12. .       do      mickey
  13. .       branch  1695
  14. endif
  15. if      ((zkey = touch $and$ (ztouchx > 152) $and$ (ztouchy > 0) $and$ (ztouchx < 196) $and$ (ztouchy < 17)))
  16. .       calc    TOUCHBOX _ 2
  17. .       do      donut
  18. .       branch  1695
  19. endif
  20. if      ((zkey = touch $and$ (ztouchx > 96) $and$ (ztouchy > 1) $and$ (ztouchx < 133) $and$ (ztouchy < 55)))
  21. .       calc    TOUCHBOX _ 3
  22. .       do      coffee
  23. .       branch  1695
  24. endif
  25. style   outline
  26. style   thickness,1
  27. style   dash  $$ solid line style
  28. * Default Touch Area
  29. if      (zkey = touch)
  30. .       calc    TOUCHBOX _ -1
  31. .       do      pickobj
  32. .       branch  1695
  33. endif
  34. if      zkey = "a"
  35. .       do      menukey1
  36. .       branch  1695
  37. endif
  38. if      zkey = "r"
  39. .       do      menukey1
  40. .       branch  1695
  41. endif
  42. if      zkey = "q"
  43. .       do      menukey1
  44. .       branch  1695
  45. endif
  46. if      zkey = "b"
  47. .       do      menukey1
  48. .       branch  1695
  49. endif
  50. if      zkey = "o"
  51. .       do      menukey1
  52. .       branch  1695
  53. endif
  54. if      zkey = "n"
  55. .       do      menukey1
  56. .       branch  1695
  57. endif
  58. if      zkey = "f"
  59. .       do      menukey1
  60. .       branch  1695
  61. endif
  62. if      zkey = "h"
  63. .       do      menukey1
  64. .       branch  1695
  65. endif
  66. branch  1695   $$ not valid input - get again
  67. 1695end
  68. disable touch
  69.